約 3,602,957 件
https://w.atwiki.jp/gurio/pages/38.html
Formula Gurio参加受付 書き込みのルール 受け付け開始日時を守ってください。フライング書き込みは、受理しないことがあります。 不備（PSID間違いなど）のある書き込みは無効とします。 書き間違い等による削除申請は、全て一番下のフォームにお願いします。」 書き込みの内容 以下の内容を書き込んでください。 お名前は名前欄に、コメント欄に ①PSID※半角英数字 ②レギュレーションを理解しているかどうか ③使用車種（正式名称） …F2007 か F10 10 のどっちかダヨ！ ④当日の参加形態 …実況投稿・生放送・一般参加等、予定でＯＫです ⑤その他何かあれば の書き込みをお願いします。 書き込み例 ①GUR-5 ②レギュレーションを理解しています。 ③F2007 ④生放送 ⑤打倒トップランカーで頑張ります。 -- グリオ (2012-07-15 20 40 01) 参加受付 7月24日(火) 20 00 エントリー受付開始 合計14人目まではこちら ①KotatsuFormula ②レギュレーションを理解しています。 ③F10 ④あらぶる生放送 ⑤上におなじく打倒トップランカーで頑張ります。 -- こたつ (2012-07-24 20 18 14) ①kawarui ②レギュレーションを理解しています。 ③F10 ④生放送するかも？ ⑤トップランカーをギャフンと言わしたります。 -- かわるい (2012-07-24 20 24 46) ①junkeda ②レギュレーションを理解しています。 ③F2007 ④一般参加 ⑤トップランカーとか時代遅れでしょｗｗ余裕で倒しますよｗｗ -- じゅんけだ (2012-07-25 00 36 50) ①Yuni0616_LRT ②レギュレーションを理解しています。 ③F10 10 ④一般参加 ⑤初参加です。ダークホース目指して頑張ります(｀・ω・´) -- ゆに (2012-07-25 02 28 00) ①tuba3 ②レギュレーションを理解しています。 ③F2007 ④一般参加 ⑤声林さんのようなレースが出来るように頑張ります＾＾ -- チューバ (2012-07-27 22 19 46) ①sato_shio ②レギュレーションを理解しています。 ③F2007 ④一般 ⑤ﾄｯﾌﾟﾗﾝｶｰｗｗｗｗｺﾎﾟｫｗｗｗｗｗｗ -- 佐藤塩磨＠ライコファン (2012-07-27 22 46 44) ①Haneuma_Mutsuki ②レギュレーションを理解しています。 ③F2007 ④一般参加 ⑤当日夕方まで用事がありますので、参加できない場合はツイッターでお知らせします。 -- はねうま (2012-07-30 00 47 55) ①FTE82 ②レギュレーションを理解しています。 ③F2007 ④一般参加 ⑤Ik zal mijn best doen top gerangschikt spelers in de val. -- Morris (2012-08-02 19 18 22) ①hayami3000 ②レギュレーションを理解しています。③F10 10 ④一般参加 ⑤グリオさんの主催レースへの初参加となります。よろしくお願いします -- はやみ (2012-08-02 20 35 45) ①Sasorimaru ②レギュレーション読みました。理解しました。ハンカチハナカミ用意しました。 ③F10 10 ④貧弱一般参加 ⑤しまったピットの場所知らないぞ -- C.蠍丸 (2012-08-02 20 36 36) ①rei34rei ②レギュレーションを理解しています。 ③F2007 ④一般参加 ⑤初参加じゃないかもしれないし予選番長かもしれないし -- 凪 (2012-08-04 00 15 47) ①van-ap1 ②レギュレーションを理解しています。 ③F2007 ④一般参加 ⑤打倒トップランカーでがんばり・・・おらんやないか！ -- van (2012-08-04 13 55 37) ①wolfgang0913 ②レギュレーションを理解しています。 ③F10 ④一般参加 ⑤彼女が顎に寝取られても頑張ります。 -- HHヴォルフィー (2012-08-04 16 37 16) 名前 コメント 15人目以降（リザーブ）はこちら 名前 コメント 書き込み削除申請フォーム 予定が入ってしまったので参加できないです。すいません。もしかしたら決勝だけ間にあうかもしれませんので、枠が空いていれば飛び入り参加できたらと思います。 -- じゅけだ (2012-08-04 16 17 19) 名前 コメント
https://w.atwiki.jp/monosepia/pages/9574.html
音楽 ーーー BABYMETAL / Gothic Metal / Symphonic Metal / BLACKMETAL + ﾆｭｰｽｻｰﾁ〔ヘビーメタル〕 【新刊発売・刊行記念イベント】10年間のプロレスラー人生を終え ... - valuepress（バリュープレス） バレンシアガのランウェイショーを全て手がける音楽家、BFRNDが語る楽曲制作の舞台裏 - GQ JAPAN 【DDT】大仁田厚の“化身”グレート・ニタがDDT初降臨で狂乱勝利し ... - Yahoo!ニュース 964型「ポルシェ911」のプロフェッショナル集団！ シンガー・ビークル・デザインの仕事を知る - webCG abort.、「PAST」を配信開始 - THE MAGAZINE ANKH、「BIRTH」を配信開始 - THE MAGAZINE 個性的な“スクエア型ダイバーズウォッチ”は「海洋科学探査船」の活動へ ... - VAGUE 【DDT】平田一喜がMIKAMIを「DDT雑学王デスマッチ」で破り ... - Yahoo!ニュース 【DDT】秋山＆ディーノ＆大石がイラプションが返上したKO-D6人 ... - Yahoo!ニュース プレミアリーグでNo.1の働き者とは？ 走行距離ランキングトップ10 ... - Yahoo!ニュース トヨタ カムリ 新型にスポーティハイブリッド「XSE」を設定…ロサンゼルス ... - レスポンス クレイマー、『ヒストリック・コレクション』第1弾メイド・イン・ジャパンの ... - BARKS 青山蜂、28周年を祝うアニバーサリー企画を開催！6日間9公演＆ ... - clubberia ReoNa、8thシングル「R.I.P.」アニソンルーツへの回帰と「怒り」への寄り添い - Musicman | 音楽業界総合情報サイト 緑黄色社会「花になって」インタビュー｜アニメ「薬屋の ... - 音楽ナタリー Knosis、2nd EPリリース 自分自身の中にある“奈落”を直接的攻撃性をもって表現 - Real Sound DDTアイアンマン王座、高橋ヒロムから“IWGPジュニアのベルト ... - Yahoo!ニュース 【DDT】元WWEの黒潮TOKYOジャパンが正田壮史に出直しの勝利 ... - Yahoo!ニュース 【DDT】MAOがマット・カルドナとの大乱戦を制しUNIVERSAL ... - Yahoo!ニュース 【DDT】‟世界のスーパースター“クリス・ジェリコが竹下幸之介と ... - Yahoo!ニュース 【DDT】赤井沙希が両国のリングで美しいまま散った！「本当に夢 ... - Yahoo!ニュース 「THE FIRST SLAM DUNK」主題歌で注目の10-FEET、結成26年目 ... - Yahoo!ニュース 斬新すぎるコラボ！ エアロスミスたい焼き「りんご飴味」を食べ ... - ガジェット通信 【DDT】上野勇希がクリス・ブルックスからKO-D無差別級王座を ... - Yahoo!ニュース 「新日本プロレスの日本人選手」人気ランキングTOP31！ 第1位は「内藤哲也」【2023年最新投票結果】（1/6） | エンタメ ねとらぼ調査隊 - ねとらぼ 武藤敬司ら名レスラーの“入場テーマ”生み出したギタリスト、副業の ... - Yahoo!ニュース 【REPORT】韓国の実力派アーティストが揃い踏み！日本での活躍 ... - Yahoo!ニュース 祝28周年、「青山蜂」がアニバーサリーパーティーを開催 - Time Out Tokyo 【DDT】高橋ヒロムを平田一喜が急襲もアイアンマン王座奪還なら ... - Yahoo!ニュース 《2023年》全部わかるサワラ釣り！プロに教わる基本からロッドや ... - ルアマガ＋ 【新日本】ヒロムに挑戦の石森太二 Jr.王座奪回後のプラン披露 ... - Yahoo!ニュース 鼻をピーピー鳴らしたら「落ち着かない」のサイン しぐさから ... - ガジェット通信 J.I.M.（ジャパニーズ・イロモノ・メタル）バンド、HELL DUMPの ... - Yahoo!ニュース JILUKA、「VENΦM」を配信開始 - THE MAGAZINE 【新日本】アイアンマンのベルトに同胞とヤングライオン奇襲「陽太様までなの？」高橋ヒロム動揺 - ニッカンスポーツ クロップ監督の「ヘビーメタル」に呼応する鬼っ子の激情 アン ... - スポーツナビ 村上晴彦のメタルジグ「ネコメタル」に2024年、新タイプとなる ... - ルアーニュースR 【DDT】WWEを離れた元黒潮“イケメン”二郎が11・12両国に参戦し ... - Yahoo!ニュース 【DDT】クリス・ブルックスが上野勇希とのKO-D無差別級王座の ... - Yahoo!ニュース 【DDT】納谷幸男が斉藤ブラザーズの襲撃を受け激怒！「11・12 ... - Yahoo!ニュース 【DDT】高橋ヒロムがアイアンマン王座を奪取し、11・12両国での ... - Yahoo!ニュース ジャニーズＮＧリスト会見になぜがヘビーメタル界騒然 松本アナは ... - ガジェット通信 遠藤航、ヘビーメタル・フットボールの洗礼 レギュラー獲得へ ... - スポーツナビ 「今日のために俺結構ダンス練習したから」土井成樹が華麗な ... - Yahoo!ニュース blue edge emotion、「21.262g」を配信開始 - THE MAGAZINE 【ＤＤＴ】土井成樹にアイアンマン王者の〝呪縛〟 奈良凱旋前に鹿をも ... - 東スポWEB まさに天才的発想！小松菜にヘヴィメタルを浴びせて育てた ... - @DIME 心斎橋BAHAMA周年ライブにEARTHSHAKER、44MAGNUM、MARINO、Gargoyleら - 音楽ナタリー イケメン俳優、声優も推しの「メタル界の高田純次」と「和製 ... - ガジェット通信 独メタルフェス「来場しないで」 大雨で例年以上にドロドロに - AFPBB News 名前を取り戻す闘いの始まり ビジュアル系バンドは法廷に向かった ... - 朝日新聞デジタル デスボイスとクリーンボイス ４人組ガールズバンド「花冷え。」８月から欧米 ... - ニッカンスポーツ 『重戦機エルガイム』よりエルガイムが千値練「RIOBOT」シリーズに登場 ... - 電撃ホビーウェブ 千値練が「RIOBOT」シリーズの新作を予告！最新弾はあのA級ヘビー ... - 電撃ホビーウェブ 『#2 KIBA～36年間活動中のヘビーメタルバンド～』～女子プロレス ... - Yahoo!ニュース 特集：JAPANESE HARD ROCK / HEAVY METAL IN THE 80 S ... - TOWER RECORDS ONLINE ＡＯＲの代表格ＴＯＴＯ 「アフリカ」「ロザーナ」 親しみやすさと超絶技巧 ... - 山陰中央新報社 ハード・ロック/ヘヴィ・メタル界で先陣を切った9組の女性たち - https //www.udiscovermusic.com/ メタリカのワールドツアー中継上映会場で「ヘドバン」解禁に - Time Out Tokyo ソラミミスト安齋肇さんのザ・ベスト「僕の管理人だった彼女」の ... - 朝日新聞デジタル Metallica、10年ぶりの来日公演は実現するのか？ メタルバンド来日ラッシュの背景にある世界的なツアー状況の変化 - Real Sound ライブハウス「目黒鹿鳴館」、2024年１月にビル退去でも「必ず ... - ツギノジダイ 北欧発の「ヘヴィメタル編み物世界選手権」って知ってる？借金を ... - FASHIONSNAP.COM 谷原章介、早口で『メタリカ』熱弁し出演者が”絶句”…「オタク特有 ... - 中日新聞 世界初のヘビメタバレエ「ブラック・サバス」 英バーミンガム - AFPBB News Black Sabbath（ブラック・サバス）｜メタル史にその名を刻む傑作 ... - TOWER RECORDS ONLINE パーキンソン病と闘う74歳のオジー・オズボーンが語る、胸に秘め ... - VOGUE JAPAN BABYMETAL、DETHKLOKと北米を巡るコーヘッドラインツアー決定 - OTOTOY ヘヴィ・メタルがこれほどまでに熱心なファンを生んでいる理由 - https //www.udiscovermusic.com/ LOVEBITESのギタリスト miyako、ピアニストとしてソロ ... - 激ロック ニュース ヘビーメタルバンド「ジェノサイド ニッポン」結成40年で初の海外ライブへ ... - 福井新聞 竜巻が“ヘビメタ”コンサート会場を直撃 29人死傷 米イリノイ州[2023 ... - テレビ朝日 伊藤政則の『HEAVY METAL SOUNDHOUSE』が初の夏期開催！ 7 ... - BURRN! ONLINE SEX MACHINEGUNS｜ニューアルバム『地獄の暴走列車』4月12日 ... - TOWER RECORDS ONLINE 『Rolling Stone』誌、史上最高のヘヴィ・メタル・ソング・ランキングを発表 - BARKS 新ユニット「ルームメイツ」の化学反応を聴け 坂本英三とＭＡＤ大 ... - ZAKZAK Ｗ杯でバズった「SHONO」も登場！ いま、この「メタル美女」が熱 ... - 週プレNEWS 「Call of Duty Mobile」，“シーズン2：ヘビーメタル”を2月23日より ... - 4Gamer.net 認知症予防にヘビメタを習う高齢者が急増！？おじいとメタルで ... - アットプレス（プレスリリース） 焦点：悲観論広がる中国Ｚ世代、「コロナ後」の習近平政権に難題 - ロイター (Reuters Japan) スウェーデンのヘビーメタルバンドが、優れた教育者として表彰された理由 ... - IDEAS FOR GOOD ドキュメンタリー映画「紫 MURASAKI 〜伝説のロック・スピリッツ ... - 東京新聞 高校生で脱毛症に 帽子を脱いだ日「世界はなにも変わらなかった ... - 朝日新聞デジタル 2023年3月に限定復活開催される『LOUD PARK』のヘッドライナー ... - BURRN! ONLINE Metallica（メタリカ）｜世界最強のヘヴィメタル・バンド、6年4 ... - TOWER RECORDS ONLINE ショアジギで青物乱打！ 秘密兵器となり得るメタルジグ「クロ ... - ルアーニュースR アートホテル大阪ベイタワー“ヘヴィメタル”テーマの過激な ... - Fashion Press 【ショアジギングにヘビメタ！】メジャークラフトからショアジギ ... - ルアーニュースR 略すなら「ヘビメタ」よりも「メタル」がいい だけど好きなら ... - nhk.or.jp ヘヴィ・メタルの芸術性：独自に進化し続けたビジュアル・スタイル - https //www.udiscovermusic.com/ 現代ヘヴィ・メタル・シーンの旗手 TRIVIUM――攻撃的でありながらメロ ... - 激ロック ニュース ヘヴィ・メタルを代表するモンスター・バンドが放つ 戦術 ――過去最大級 ... - 激ロック ニュース ハードロックやヘヴィメタルを聴くと不健康になるとの研究結果が ... - HYPEBEAST 歴代最高のメタルアルバム100選 - http //rollingstonejapan.com/ 【西山瞳の鋼鉄のジャズ女】第27回 ヘヴィメタルの歴史的に絶対聴いてお ... - Mikiki 「これは……A級ヘビーメタルのバッシュ！……カッコいい！」、HI ... - GAME Watch ヘビーメタル×オーケストラ？クロップ・リバプール進化の過程 - footballista - footballista 頭が良くなる音楽はモーツァルトではなく「ヘヴィメタル」だった！？ 脳科学 ... - Study Hacker へヴィ・メタル・サンダー - ”へヴィ・メタル”の誕生を追う - https //www.udiscovermusic.com/ ヘヴィメタル10種類のサブジャンルをドラムの演奏で再現 - GIZMODO JAPAN ● ヘビーメタル〔ﾉｲｽﾞﾚｽｻｰﾁ〕 ● ヘビーメタル〔blog Google検索〕 + ﾆｭｰｽｻｰﾁ〔Heavy Metal〕 NGT takes up suo motu case on presence of heavy metals in vegetables - Deccan Herald The blues bands that originally inspired Black Sabbath - Far Out Magazine Heavy Metal & Burgers My Honest Review on Kuma s Corner - The Elgin Observer Geraldo Rivera O jornalista sensacionalista que tentou acabar com ... - RockBizz Με... heavy metal ναυτικοί προσπαθούν να αποτρέψουν επιθέσεις από όρκες στην Ισπανία - Δείτε βίντεο - Πρώτο Θέμα Tatort Borowski und das unschuldige Kind von Wacken - NDR.de Rob Halford Talks Dolly Parton Duet And Rescuing Kittens - Woman s World Illegal Mining GWCL s inability to filter heavy metals from drinking ... - Myjoyonline Stadtkapelle Donaueschingen Von Blasmusik bis Heavy Metal ... - Schwarzwälder Bote 26 discos que cambiaron el rumbo del metal para siempre - The Metal Circus Specialutgåvor för Metallicas turné 2024 - Tidningen PROFFS Et hat større enn Beatles? - Heavymetal.no I m not so lonely now, there are other girls to talk with and exchange ... - Louder Metallica Kirk Hammett stürzt beim Konzert in Detroit auf der Bühne - metal-hammer.de Kritik zu High Spirits SAFE ON THE OTHER SIDE - metal-hammer.de METAL HAMMER Paradise 4.000 Besucher feiern die zehnte ... - metal-hammer.de Iveco teams up with heavy metal band Metallica to launch special ... - Commercial Motor Katil balina saldırılarına karşı yeni savunma yöntemi Heavy metal - TRT Haber Sailors Turn to Heavy Metal to Fend Off Rowdy Orcas - The Maritime Executive 9-year-old girl killed when school’s metal gate falls on her, Arizona cops say - Yahoo News Heavy metal -legenda Judas Priest suosittelee somessa hieman ... - V2.fi Luke O Neill Heavy metal music might reduce climate change - Newstalk Heavy Metal ... des Lied ich sing - nd - Journalismus von links Simultaneous quantification of lead, cadmium and zinc in superficial ... - Nature Journal Vosges. Saint-Dié du heavy metal au musée Pierre-Noël pour ... - Vosges Matin Black Pantera lança Griô e quer ser exemplo para músicos negros no metal - UOL Singer Shanul Sharma swapped heavy metal for opera and has never looked back - ABC News God is heavy the rise of Christian metal - Boston - WECB Canada s LANCASTER Is Dropping A Payload Of Heavy Metal With ... - Metal-Rules.com HEAVY METAL Steel installed on thruway overpass - Niagara Frontier Publications Segunda onda do heavy metal britânico - Rádio Câmara - Portal da Câmara dos Deputados Cosmic Forges Exploring a Heavy-Metal Factory 900 Million Light ... - SciTechDaily Bill Bailey says he s well up for making another heavy metal album - NME Heavy Song of the Week Ihsahn’s Pilgrimage to Oblivion - Consequence Heavy-Metal-Dinosaurier kommen 2024 nach Leibertingen ... - schwaebische.de Lady Gaga s fans make up lies about lyrics to get more streams - Insider Pioneira do heavy metal, banda Saxon toca em Brasília neste sábado - Correio Braziliense Dave Grohl L’heavy metal non sarebbe esistito senza i Led Zeppelin e se fosse esistito avrebbe fatto schifo - Virgin Radio November rain brings a cold shock and heavy metal nostalgia - The Irish Times Heavy Metal lanzará una canción a favor de la protección de los ... - Revista Inversiones y Negocios Panamá Heavy on metal - Bangalore Mirror „Răscoala orcilor” în largul coastelor Spaniei și Portugaliei. Marinarii încearcă să le sperie cu muzică... - Digi24 Spotify-Playlist mit Heavy-Metal-Songs soll Orcas abwehren - Business Insider Deutschland Bullet, terapia de choque de heavy metal - Metal Journal Il motore Iveco gira a ritmo heavy Metal - Uomini e Trasporti Christmas ads countdown John Lewis is king, heavy metal fans love ... - Prolific North Grande nome do heavy metal, Angra se apresenta em Porto Alegre ... - Super Transado PANTERA The Anthems Of Aggression And Power That Etched The ... - Sonic Perspectives Judas Priest to bring heavy metal to Empower FCU Amphitheater in Syracuse - syracuse.com La Nueva Ola del Heavy Metal Británico sus eslabones perdidos - Futuro Chile 11 legendary heavy metal bands with only one original member left - Yahoo Entertainment Boiler Room Draws Inspiration From Heavy Metal, Motocross For ... - Complex Jay Weinberg breaks silence after split from heavy metal band Slipknot - MorungExpress World s most popular heavy metal Christmas rock band is back in Colorado - 9News Super, sensational Ryan Searle! | Heavy Metal lights up Grand ... - Sky Sports 【『JAPAN HEAVYMETAL FANTASY 2023【BAHAMA STILLALIVE ... - OKMusic Heavy Metal guitarist Nita Strauss on her career and latest album - KHOU Heavy metal icons Pantera stopping in Baltimore on tour - CBS News Heavy metal The Junkers armored patrol plane — General Aviation ... - General Aviation News The 10 greatest solo albums in heavy metal history - Louder Queensrche to perform at Empire Live - NEWS10 ABC The Grammys are still failing heavy metal – with so many new bands ... - Louder Features | Columnus Metallicus | Columnus Metallicus Heavy Metal ... - The Quietus Heavy metal pole strikes restaurant patron on the head - Massachusetts Lawyers Weekly Heavy metal legends - Topeka & Shawnee County Public Library NEXUSレーベル配信企画 第2弾！ HEAVY METAL ARMY ... - BURRN! ONLINE Researchers Heal Heavy Metal Poisoning from Implants - UConn ... - University of Connecticut Bruce Dickinson, jedan od najvećih i najosebujnijih heavy metal ... - Novi list Heavy Metal im Weltraum - Helmholtz Home - helmholtz.de Man, 41, Goes Overboard During Heavy Metal Cruise to the Bahamas - PEOPLE Heavy Metal - Kirchenglocken in einer säkularen Gesellschaft | NDR ... - NDR.de Taking the hard road Saudi music company pushes heavy metal ... - Arab News Heavy metal Linux 6.6 has arrived - ZDNet Bowdens Silver mine will shut down if heavy metal dust found in NSW community, inquiry hears - ABC News Bright flash leads astronomers to a heavy-metal factory 900 million ... - Massachusetts Institute of Technology Consumer Reports casts shadow on chocolate s heavy metal content - AGDAILY The 10 worst creative decisions in heavy metal history - Louder 10 heavy metal cover songs more popular than the originals ... - Louder Falleció Ricardo Iorio la leyenda del heavy metal argentino ... - Municipalidad de Coronel Suárez Murió Ricardo Iorio, ícono del heavy metal argentino - Página/12 Research flags heavy metal contamination in vegetables across Bengaluru - Deccan Herald Unaccounted for Heavy-metal drummer Yotam Haim, from Kfar Aza - The Times of Israel Wacken Metal Academy So geht Heavy Metal - NDR.de HEAVY METAL SOUNDHOUSE 2023が12月に開催、ゲストDJに ... - Young Guitar HEAVY METAL／HARD ROCK系アーティスト最新・人気・定番 ... - MUSIC LIFE CLUB HM/HR系のグッズが大集合するポップアップストア『PGS METAL ... - BURRN! ONLINE 『JAPAN HEAVY METAL FANTASY 2023』にPRESENCEの電撃追加 ... - OKMusic 大阪で3年ぶり開催！ 過去最大級！ HEAVY METAL/HARD ROCK系 ... - ドリームニュース BAHAMA開業60年周年を記念し、関西HR/HMシーンのレジェンドによる ... - OKMusic 特集：JAPANESE HARD ROCK / HEAVY METAL IN THE 80 S ... - TOWER RECORDS ONLINE ハード・ロック/ヘヴィ・メタル界で先陣を切った9組の女性たち - https //www.udiscovermusic.com/ ヘヴィ・メタルがこれほどまでに熱心なファンを生んでいる理由 - https //www.udiscovermusic.com/ 伊藤政則の『HEAVY METAL SOUNDHOUSE』が初の夏期開催！ 7 ... - BURRN! ONLINE ● Heavy Metal〔ﾉｲｽﾞﾚｽｻｰﾁ〕 ● Heavy Metal〔blog Google検索〕 + heavy metal プレイリスト ミックスリスト - ヘヴィメタル〔Youtube〕 ヘヴィメタルがヘヴィメタルであったのは、79年から85年まで（実質84年まで）。そのあたりに名曲やギターの名演奏があるのでね 80年代でもまあせいぜい88年のザック・ワイルドが出たくらいまでなんだ ハードロックは68年から70年代いっぱいね — Vox Populi (@bruisu_ncnudl) May 1, 2023 ■ シンフォニックメタル系Youtube Mix playlist ■ Top Metal 2020 - Ultimate Hard Rock Heavy Metal #RedMusic Biggest Songs ■ 【天才】トップ5%の頭いい人たちが好む音楽とは メンタリスト DaiGo 2019/09/28に公開済み ■ 頭が良くなる音楽はモーツァルトではなく「ヘヴィメタル」だった！？ 脳科学からいえるこれだけの理由 「STUDY HACKER（2019-04-25）」より / 「クラシックを聴くと頭が良くなる」。そんな意見を聞いたことがある人も多いのではないでしょうか。しかし、脳科学者の中野信子さんは、一般的にマイナスのイメージを持たれる「ヘヴィメタル」（以下、メタル）を聴くほうが、むしろ頭は良くなる可能性があると大胆な推察をしています。 そこで今回は、長年にわたるメタルファンで、2019年1月にメタルが脳に及ぼすポジティブな影響を考察した『メタル脳 天才は残酷な音楽を好む』（KADOKAWA）を上梓した同氏に、メタルを聴くと本当に「頭が良くなるのか」を聞いてきました。 構成／岩川悟（slipstream） 取材・文／辻本圭介 写真／櫻井健司 「モーツァルトを聴くと頭が良くなる」って本当？ 「クラシックは良い音楽だ」「心にも頭にも良い影響がある」。そんな「クラシック信仰」とでもいうべき見方が、世の中には根強く存在します。たとえば、モーツァルトを聴くと頭が良くなるという、いわゆる「モーツァルト効果」を頭から信じ込んでいる人もいまだに多いようです。 わたしは、こうしたことをかなり問題がある行動だと感じています。もちろん、クラシックが良くないといっているのではありません。クラシックを聴くと具体的にどんな効果が見込めるのか、身体のどのような機能に対して良いのかを理解して人にすすめるならいいと思います。でも、「なんとなく頭に良さそうだから」と思ってステレオタイプな見方で聴いたり、人に押しつけたりするのは、疑問を抱かざるを得ないのです。 「モーツァルト効果」は、1993年に『Nature』に掲載された「モーツァルトを聴かせたら大学生の認知力テストの成績が上がった」とする研究報告によるもので、発表されるとまたたく間に全世界に広まりました。しかし、その6年後、心理学の専門誌『Psychological Science』に掲載された論文で、3人の研究者がその研究結果に再現性がないとして否定したのです(※1)。その論文により、「モーツァルト効果」が、「アーティファクト（人工的に出てきた結果）」であることがあきらかになりました。 「モーツァルト効果」 は数々の研究で否定されている 「アーティファクト」といっても、けっして悪意のある捏造などではなく、研究者がまちがって発見してしまっただけです。おそらく最初の研究者は、「モーツァルトを聴くと頭が良くなるはずだ」と思い込んで研究したのでしょう。そして、一般的な科学の実験でも起こることなのですが、真実の効果ではなく「研究者が見たいと思う効果」が見えてしまったにちがいありません。 （※mono....中略） / 成績優秀者に限ると、「メタルを聴くほうが頭が良くなる」可能性が高い じつは、わたしはいまだ音楽産業や教育産業のPR・マーケティングとして使われ続けている「モーツァルト効果」よりも、むしろ「メタル効果を期待したほうが良いのでは？」と考えています。これはあくまでわたしの推論ですが、語学や資格取得のための勉強をするとき、成績優秀者に限っていうと、メタルを聴いている人のほうがより「頭が良くなる」と考えられるからです。 というのも、成績が良い人というのは不安傾向が高いことが多く、心のバランスを取る役割を持つホルモンであるセロトニンがあまり出なかったり、うまく使いこなせなかったりする脳の持ち主だといえるからです。要は、ちょっとした出来事でも「もっと悪いことが起こるのではないか？」と不安に感じてしまうような人たちです。 そんな人は、勉強においても「ここが悪かった」「だから次は良くしよう」というように、自分に対してネガティブなフィードバックをする傾向にあります。まさに、それゆえに成績が良くなる面があるのですが、この高すぎる不安傾向をメタルという音楽がうまく埋めてくれることで実力を発揮しやすくなり、パフォーマンスが向上したという報告もあります。 （※mono....略） / メタルは、ストレスやプレッシャーから人間を守るのに役に立つ音楽 メタルに関するちょっとユニークな調査結果もあります。イギリスのウォーリック大学の研究チームが成績の優秀な学生を選んでメタルに関する調査を実施したところ、メタルはストレス発散や欲求不満の解消に役立つ効果が認められたのです（※3）。 成績優秀であることは、同時に大きなプレッシャーを抱えることにもつながります。たとえば、自分自身の期待に加え、まわりから過度な期待があると、それがプレッシャーへと変わる場合があります。しかし、研究に参加したスチュワート・キャドワルダー氏は、「メタルを聴くことでそんなプレッシャーを一時的に忘れ去ることができるのかもしれない」とコメントを残しています。つまり、一時的にストレス耐性を上げるわけですね。 このようなことからも、「メタルなんか聴くと頭に良くない！」といった意見が、いかにステレオタイプで短絡的な見方であるかがおわかりになるはずです。 別に成績優秀者に限らず、社会人なら多かれ少なかれストレスを感じて生きています。少なくとも自分自身を不安傾向から守り、「ここぞ！」というときに力を発揮できるようにするためには、「メタルも役に立つかもしれないな」という認識を新たに持っていただけると良いと思いますね。 ■ ヘヴィメタルは「不安解消」に効く！ 手術中の外科医も好んで聴く “残酷な音楽” の力 「STUDY HACKER（2019-04-26）」より （※mono....こちらの記事も必読！！） ■ 「頭のいい人たちがもっとも好む音楽はレディオヘッド」、米研究結果で 「rockin'on .com（2014.10.23 23 08）」より / ヴァージル・グリフィスというソフトウェア・アプリケーション・ライターがここ数年に亙り、主な米大学ごとのSAT（大学進学適性試験）の平均得点と、その大学に通う学生の音楽の好みを照らし合わせてきたところによると、レディオヘッドこそ頭のいい人たちが聴く音楽であるという結論に達したという。 これにはたとえば、カリフォルニア工科大学に通う学生の大学進学適性試験得点が1520点と高く、さらに同大学の学生のフェイスブック上で最も人気のバンド（あるいは、最も「いいね！」がクリックされているバンド）がレディオヘッドだった、というような結果が反映されている。 （※mono....以下略） .
https://w.atwiki.jp/heavymetaleye101/pages/149.html
JAPANESE METAL VIBES オムニバス盤。 80年代ジャパニーズメタルの猛者「LOUDNESS」「EARTH SHAKER」「ANTHEM」等の代表曲などを寄せ集めたもので、80年代ジャパニーズメタルを知りたい人にはうってつけの1枚！！ LOUDNESS/LOUDNESS IN THE MIRROR/LOUDNESS RADIO MAGIC/EARTHSHAKER MORE/EARTHSHAKER SHOT IN THE DARK/VOW WOW NIGHTLESS CITY/VOW WOW BLIZARD/BLIZARD STEALER/BLIZARD BOUND TO BREAK/ANTHEM WILD ANTHEM/ANTHEM BURNIN' LIKE THE FIRE/X-RAY LOVE GAME/X-RAY BREAK/MARINO IMPACT/MARINO SHOCK!/RAJAS LIAR/RAJAS
https://w.atwiki.jp/note4recurrent/pages/41.html
Option Explicit Type keisan saveName As String 保存名 payW As String 時給1・月給２ choiceAge As String 年齢区分 workT As Integer 時間 payH As Long 時給（交通費なし） payM As Long 月給（交通費なし）：時給の場合はpayH×workT transport As Integer 交通費 remuneration As Long 月額報酬 月給の場合はそのまま、時給の場合は時給×単価＋交通費 health As Long 健康保険 welfare As Long 厚生年金 care As Long 介護保険 job As Long 雇用保険 End Type Sub 社会保険料算出_Click() 時給か月収が選択されていない場合 Dim choiceHM As String choiceHM = Cells(7, 4).Value If choiceHM = "" Then MsgBox "時給もしくは月給を選択してください。" Exit Sub End If Dim choiceAge As String choiceAge = Cells(7, 6).Value If choiceAge = "" Then MsgBox "年齢を選択してください。" Exit Sub End If Dim hour As Integer Dim transport As Long Dim splInput As Long Dim payInput As Long 入力値が数値じゃない場合メッセージを表示する。 If Not IsNumeric(Cells(5, 8)) Or Not IsNumeric(Cells(5, 12)) Or Not IsNumeric(Cells(5, 16)) Or Not IsNumeric(Cells(7, 16)) Then MsgBox "数字を入力してください。" Exit Sub End If 入力値＝変数 If Cells(7, 6) = 1 Then choiceAge = "３９歳以下" Else choiceAge = "４０歳以上" End If transport = Cells(7, 16).Value splInput = Cells(5, 12).Value payInput = Cells(5, 16).Value 勤務時間 入力がなければ１６０時間とする If Cells(5, 8) = 0 Then hour = 160 Else hour = Cells(5, 8) End If 年齢、支給額、入金額が未入力の場合メッセージを出す If splInput = 0 Or payInput = 0 Then If choiceHM = "1" Then hour = 0 End If MsgBox "入力してください。" Exit Sub End If ActiveSheet.Unprotect 保険料シートのため Dim i As Integer Dim j As Integer Dim payH As Long 時給（交通費なし） Dim payM As Long 月給（交通費なし） Dim splH As Long 月の入金額 Dim splM As Long 時間の入金額 Dim remuneration As Long 月額報酬 Dim health As Long 健康保険 Dim welfare As Long 厚生年金 Dim care As Long 介護保険 Dim job As Long 雇用保険 Dim total As Long 保険合計＝健康保険＋厚生年金＋介護保険＋雇用保険 Dim cost As Long 経費合計（交通費有）＝保険合計＋月額報酬 Dim costNoTransport As Long 経費合計（交通費無）＝保険合計＋月給 Dim del As Long 差額（交通費有）＝入金額ー経費合計（交通費有） Dim delNoTransport As Long 差額（交通費無）＝入金額ー経費合計（交通費無） menuにメニュー、datasheetに保険料 Dim menu As Worksheet Set menu = ThisWorkbook.Worksheets("メニュー") Dim datasheet As Worksheet Set datasheet = ThisWorkbook.Worksheets("保険料") 保存用 Range("F19").Value = choiceAge Range("G19").Value = hour Range("H19").Value = transport 時給の時 If choiceHM = 1 Then splH = splInput splM = splH * hour Range("I19").Value = splM 支給金額を計算 For i = -2 To 2 時給が－100円、－50円、0円、50円、＋100円のパターンを表示 payH = payInput + i * 50 Cells(14 + i, 10).Value = payH 報酬月給（時給×月の勤務時間＋交通費） payM = Cells(14 + i, 10).Value * hour remuneration = payM + transport Cells(14 + i, 11).Value = remuneration 保険料シートを上から回す For j = 6 To 55 「保険料」の報酬月額（以上）＜月給＜「保険料」の報酬月額（未満） If datasheet.Cells(j, 3).Value = remuneration And remuneration datasheet.Cells(j, 4) Then 健康保険 health = datasheet.Cells(j, 6).Value Cells(14 + i, 12) = health 厚生年金 welfare = datasheet.Cells(j, 9).Value Cells(14 + i, 13) = welfare 介護保険 If choiceAge = "３９歳以下" Then care = 0 Else care = datasheet.Cells(j, 7).Value End If Cells(14 + i, 14).Value = care 雇用保険 job = Round((Cells(14 + i, 11).Value / 160), 0) Cells(14 + i, 15).Value = job 保険合計 total = health + welfare + care + job Cells(14 + i, 16).Value = total 経費合計（交通費有）＝保険合計＋月額報酬 cost = total + remuneration Cells(14 + i, 17).Value = cost 経費合計（交通費無）＝保険合計＋月給 costNoTransport = total + payM Cells(14 + i, 18).Value = costNoTransport 差額（交通費有）＝時給＊１６０－経費合計（交通費有） del = splM - cost Cells(14 + i, 19).Value = del 差額（交通費なし）＝時給＊１６０－経費合計（交通費無） delNoTransport = splM - costNoTransport Cells(14 + i, 20).Value = delNoTransport Exit For End If Next Next 月給の時 Else splM = splInput splH = Round((splM / hour), 0) Range("I19").Value = splM For i = -2 To 2 報酬月額が－10000円、－5000円、0円、＋5000円、＋10000円のパターンを表示 payM = payInput + i * 5000 remuneration = payM + transport Cells(14 + i, 11).Value = remuneration 時給（１６０時間として計算）交通費無 payH = Round(((payM + i * 5000) / hour), 0) Cells(14 + i, 10).Value = payH 保険料シートを上から回す For j = 6 To 55 「保険料」の報酬月額（以上）＜＝月給＜「保険料」の月額報酬（未満） If datasheet.Cells(j, 3).Value = remuneration And remuneration datasheet.Cells(j, 4) Then 健康保険 health = datasheet.Cells(j, 6).Value Cells(14 + i, 12) = health 厚生年金 welfare = datasheet.Cells(j, 9).Value Cells(14 + i, 13) = welfare 介護保険 If choiceAge = "３９歳以下" Then care = 0 Else care = datasheet.Cells(j, 7).Value End If Cells(14 + i, 14).Value = care 雇用保険（報酬月額＊0.006） job = Round((Cells(14 + i, 11).Value / 160), 0) Cells(14 + i, 15).Value = job 保険合計 total = health + welfare + care + job Cells(14 + i, 16).Value = total 経費合計（交通費有）＝保険合計＋月額報酬 cost = total + remuneration Cells(14 + i, 17).Value = cost 経費合計（交通費無）＝保険合計＋月給 costNoTransport = total + payM Cells(14 + i, 18).Value = costNoTransport 差額（交通費有）＝時給＊１６０－経費合計（交通費有） del = splM - cost Cells(14 + i, 19).Value = del 差額（交通費無）＝時給＊１６０－経費合計（交通費無） delNoTransport = splM - costNoTransport Cells(14 + i, 20).Value = delNoTransport Exit For End If Next Next End If ActiveSheet.Protect End Sub Sub 時給_Click() written by Kinami 2011/11 ActiveSheet.Unprotect Cells(5, 11).Value = "時給" Cells(5, 15).Value = "時給" Cells(5, 12).Value = 0 時給ははじめ１６０時間で設定 Range("H5").Value = 160 Range("K6 Q6").Font.ColorIndex = 1 ActiveSheet.Protect End Sub Sub 月給_Click() written by Kinami 2011/11 ActiveSheet.Unprotect Cells(5, 11).Value = "月給" Cells(5, 15).Value = "月給" Cells(5, 12).Value = 0 Range("H5").Value = 160 Range("K6 Q6").Font.ColorIndex = 2 ActiveSheet.Protect End Sub Sub クリア_Click() written by Kinami 2011/11 ActiveSheet.Unprotect Range("F5").ClearContents 年齢 Range("H5").ClearContents 勤務時間 Range("L5").ClearContents 入金額 Range("P7").ClearContents 交通費 Range("F11").ClearContents 保存名 計算結果をクリア Range("j12 T16").ClearContents 画面遷移時は時給計算の設定にしておく Range("D7").Value = 1 Call 時給_Click ActiveSheet.Protect Range("L5").Select End Sub Sub save2db() ================このコードは 支給計算シートで実行される written by Kasahara 2011/11/16 Application.ScreenUpdating = False 画面描画の停止 算出履歴 Dim resultSheet As Worksheet Set resultSheet = ThisWorkbook.Worksheets("算出履歴") 支給計算 Dim calcSheet As Worksheet Set calcSheet = ThisWorkbook.Worksheets("支給計算") 算出されていない場合はメッセージを出す If Cells(14, 10) = "" Then MsgBox "算出してください。" Exit Sub ElseIf Cells(5, 12) = 0 Or Cells(5, 12) = "" Then MsgBox "データを入力し、算出を行ってください。" Exit Sub ElseIf Cells(11, 6) = "" Then MsgBox "保存名を入力してください" Exit Sub ElseIf Cells(5, 12).Value 10000 And Cells(7, 4).Value = 1 Then MsgBox "時給10,000超過。要修正。" Exit Sub ElseIf Cells(5, 12).Value 10000 And Cells(7, 4).Value = 2 Then MsgBox "月給10,000未満。要修正。" Exit Sub End If ＝＝＝＝＝＝＝＝＝＝＝＝＝再計算 念のために計算を実行 Call 社会保険料算出_Click ActiveSheet.Unprotect ========================重複のチェック Dim saveName As String saveName = Range("F11").Value Dim kari As Variant kari = readData(saveName) If kari(0, 0) "nodata" Then DB に該当のデータがあるか確認 Call MsgBox("既に使われた保存名です。変更して保存してください。") ActiveSheet.Protect Exit Sub End If ========================DBにinsert Dim str As String SQL文を入れる変数 str = makeSQL("insert") SQL文生成 execSQL (str) insert実行 ＝＝＝＝＝＝＝＝＝＝＝＝＝履歴データダウンロード・転記 Cells(1, 1).Value = "save" save モードであることを記録しておく（writeData で使う） Call loadHist calcSheet.Activate Cells(1, 1).Value = "" 消しておく ActiveSheet.Protect 支給計算 calcSheet.Range("F11").Select End Sub Sub loadData() ================このコードは 支給計算シートで実行される written by Kasahara 2011/11/21 Application.ScreenUpdating = False 画面描画の停止 保存名がない場合はエラー If Cells(11, 6) = "" Then MsgBox "保存名を入力してください" Exit Sub End If ActiveSheet.Unprotect ========================保存名を使って検索 Dim saveName As String saveName = Range("F11").Value Dim rData As Variant 検索結果を受ける変数 rData = readData(saveName) If rData(0, 0) = "nodata" Then select の結果データがなかった Call MsgBox("保存名が見当たりません。修正して再度実行してください。") ActiveSheet.Protect Exit Sub End If ＝＝＝＝＝＝＝＝＝＝＝＝＝社会保険計算に必要なデータをセルに入れる 受け取ったデータを変数に代入（扱い易いように） Dim h As keisan h.saveName = rData(0, 0) h.payW = rData(1, 0) h.choiceAge = rData(2, 0) h.workT = rData(3, 0) h.payH = rData(4, 0) h.payM = rData(5, 0) h.transport = rData(6, 0) セルに入れる Cells(11, 6).Value = h.saveName Cells(7, 4).Value = h.payW If h.choiceAge = "３９歳以下" Then Cells(7, 6).Value = 1 Else Cells(7, 6).Value = 2 End If Cells(5, 8).Value = h.workT If h.payW = 1 Then Call 時給_Click Cells(5, 12).Value = h.payH Else Call 月給_Click Cells(5, 12).Value = h.payM End If Cells(7, 16).Value = h.transport ＝＝＝＝＝＝＝＝＝＝＝＝＝再計算 Call 社会保険料算出_Click Range("F11").Select ActiveSheet.Protect 支給計算 End Sub Sub updateData() ================このコードは 支給計算シートで実行される written by Kasahara 2011/11/21 Application.ScreenUpdating = False 画面描画の停止 算出履歴 Dim resultSheet As Worksheet Set resultSheet = ThisWorkbook.Worksheets("算出履歴") 支給計算 Dim calcSheet As Worksheet Set calcSheet = ThisWorkbook.Worksheets("支給計算") 算出されていない場合はメッセージを出す If Cells(14, 10) = "" Then MsgBox "算出してください。" Exit Sub ElseIf Cells(5, 12) = 0 Or Cells(5, 12) = "" Then MsgBox "データを入力し、算出を行ってください。" Exit Sub ElseIf Cells(11, 6) = "" Then MsgBox "保存名を入力してください" Exit Sub ElseIf Cells(5, 12).Value 10000 And Cells(7, 4).Value = 1 Then MsgBox "時給10,000超過。要修正。" Exit Sub ElseIf Cells(5, 12).Value 10000 And Cells(7, 4).Value = 2 Then MsgBox "月給10,000未満。要修正。" Exit Sub End If ＝＝＝＝＝＝＝＝＝＝＝＝＝再計算 念のために計算を実行 Call 社会保険料算出_Click ActiveSheet.Unprotect ========================重複のチェック Dim saveName As String saveName = Range("F11").Value ========================保存名を使って検索 保存名を書き換えていないかチェック Dim rData As Variant 検索結果を受ける変数 rData = readData(saveName) If rData(0, 0) = "nodata" Then select の結果データがなかった Call MsgBox("保存名が見当たりません。修正して再度実行してください。") ActiveSheet.Protect Exit Sub End If ======================== 既存データをupdate Dim str As String SQL文を入れる変数 str = makeSQL("update") SQL生成 execSQL (str) update実行 ＝＝＝＝＝＝＝＝＝＝＝＝＝履歴データダウンロード・転記 Cells(1, 1).Value = "update" update モードであることを記録しておく（writeData で使う） Call loadHist calcSheet.Activate ActiveSheet.Protect 支給計算 Cells(1, 1).Value = "" 消しておく calcSheet.Range("F11").Select End Sub Function readData(ByVal saveName As String) As Variant written by Kasahara 2011/11/17 指定された一件のデータのみを読み込む。ない場合はその旨を返す。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝DB接続 Dim db As ADODB.connection アクセス用のオブジェクト宣言 Dim openFl As Boolean openFl = False オープンフラグ エラー処理の宣言 On Error GoTo ErrorHandler If db Is Nothing Then インスタンスが存在しない場合 Set db = New ADODB.connection インスタンス生成 openFl = True オープンフラグをTrue Else オブジェクトが存在する場合 If db.State = adStateClosed Then コネクション状態がクローズの場合 openFl = True オープンフラグオン End If End If If openFl = True Then オープンフラグがオンの場合 DB に接続 db.Open "Provider=SQLOLEDB;" _ "Data Source=MC27;" _ "Initial Catalog= test;" _ "User Id=sa;" _ "Password=MandC_mc27;" Call MsgBox("接続されました", vbInformation) End If ＝＝＝＝＝＝＝＝＝＝＝＝＝＝SQL実行 Dim rs As ADODB.Recordset SQLにアクセスするオブジェクト宣言 Set rs = New ADODB.Recordset インスタンス生成 rs.ActiveConnection = db dbの接続をrsのActivConnectionにセット データ取得SQL文をrsにセット rs.Source = "SELECT " _ " * " _ "FROM " _ " hoken " _ " WHERE " _ " saveName = " _ saveName " ; " rs.Open SQL実行(select) Dim notdata(1, 1) As Variant notdata(0, 0) = "nodata" If rs.EOF = True Then データが存在しない場合はnotdataを返り値に入れる readData = notdata Else データが存在する場合は読んだデータを返り値に入れる readData = rs.GetRows End If ＝＝＝＝＝＝＝＝＝＝＝＝SQLの後処理 rs.Close レコードセットクローズ Set rs = Nothing rsを破棄 If Not db Is Nothing Then オブジェクトが存在する場合 コネクション状態がオープンの場合 If db.State = adStateOpen Then db.Close DBクローズ End If Set db = Nothing オブジェクト破棄 End If Exit Function エラーの場合 ErrorHandler Call MsgBox("エラー" Err.Number Chr(13) Err.Description, vbCritical) End Function Sub execSQL(str As String) written by Kasahara 2011/11/16 update,delete,insert で使える ＝＝＝＝＝＝＝＝＝＝＝＝＝＝DB接続 Dim i As Integer Dim openFl As Boolean openFl = False オープンフラグ Dim db As ADODB.connection アクセス用のオブジェクト宣言 エラー処理の宣言 On Error GoTo ErrorHandler If db Is Nothing Then インスタンスが存在しない場合 Set db = New ADODB.connection インスタンス生成 openFl = True オープンフラグをTrue Else オブジェクトが存在する場合 If db.State = adStateClosed Then コネクション状態がクローズの場合 openFl = True オープンフラグオン End If End If If openFl = True Then オープンフラグがオンの場合 DB に接続 db.Open "Provider=SQLOLEDB;" _ "Data Source=MC27;" _ "Initial Catalog= test;" _ "User Id=sa;" _ "Password=MandC_mc27;" Call MsgBox("接続されました", vbInformation) End If ＝＝＝＝＝＝＝＝＝＝＝＝＝＝SQL実行 db.Execute str ＝＝＝＝＝＝＝＝＝＝＝＝＝＝SQLの後処理 If Not db Is Nothing Then オブジェクトが存在する場合 コネクション状態がオープンの場合 If db.State = adStateOpen Then db.Close DBクローズ End If Set db = Nothing オブジェクト破棄 End If Exit Sub エラーの場合 ErrorHandler Call MsgBox("エラー" Err.Number Chr(13) Err.Description, vbCritical) End Sub Function makeSQL(syori As String) As String written by Kasahara 2022/11/16 insert 文作成 modified by Kasahara 2022/11/22 update 追加 Dim iStr As String SQL文 Dim d As keisan シートからデータを取り込む d.saveName = Range("F11").Value d.payW = Range("D7").Value d.choiceAge = Range("F19").Value 年齢 d.workT = Range("G19").Value 時間 If Cells(7, 4).Value = 1 Then d.payH = Cells(14, 10).Value 時給（交通費無） d.payM = d.payH * d.workT 月給（交通費無） Else d.payM = Cells(5, 12).Value 月給（交通費無） d.payH = Round(d.payM / d.workT, 0) End If d.transport = Cells(7, 16).Value 交通費 d.remuneration = Cells(14, 11).Value 月額報酬 d.health = Range("L14").Value 健康保険 d.welfare = Range("M14").Value 厚生年金 d.care = Range("N14").Value 介護保険 d.job = Range("O14").Value 雇用保険 If syori = "insert" Then insert 文作成 iStr = "INSERT INTO hoken" _ "(saveName, payW,choiceAge,workT,payH,payM,transport,remuneration,health,welfare,care,job) values (" iStr = iStr " " d.saveName _ " ," d.payW _ ", " d.choiceAge _ " ," d.workT _ "," d.payH _ "," d.payM iStr = iStr "," d.transport _ "," d.remuneration _ "," d.health _ "," d.welfare _ "," d.care _ "," d.job _ ");" Else update 文作成 iStr = "UPDATE hoken SET " iStr = iStr "saveName= " d.saveName " ," iStr = iStr " payW= " d.payW "," iStr = iStr " choiceAge= " d.choiceAge " ," iStr = iStr " workT= " d.workT "," iStr = iStr " payH= " d.payH "," iStr = iStr " payM= " d.payM "," iStr = iStr " transport= " d.transport "," iStr = iStr " remuneration= " d.remuneration "," iStr = iStr " health= " d.health "," iStr = iStr " welfare= " d.welfare "," iStr = iStr " care= " d.care "," iStr = iStr " job= " d.job "," iStr = iStr " cDate= " Year(Now) "-" Month(Now) "-" Day(Now) " " hour(Now) " " Minute(Now) " " Second(Now) " 000 " iStr = iStr " WHERE saveName = " d.saveName iStr = iStr " ;" End If Stop makeSQL = iStr 作ったSQL文を返り値にセット End Function Sub loadHist() written by Kasahara 2011/11/17 全データをダウンロードして履歴セルに貼り付ける ＝＝＝＝＝＝＝＝＝＝＝＝＝＝DB接続 Dim db As ADODB.connection アクセス用のオブジェクト宣言 Dim openFl As Boolean openFl = False オープンフラグ Dim allData As Variant DLデータ受ける変数 エラー処理の宣言 On Error GoTo ErrorHandler If db Is Nothing Then インスタンスが存在しない場合 Set db = New ADODB.connection インスタンス生成 openFl = True オープンフラグをTrue Else オブジェクトが存在する場合 If db.State = adStateClosed Then コネクション状態がクローズの場合 openFl = True オープンフラグオン End If End If If openFl = True Then オープンフラグがオンの場合 DB に接続 db.Open "Provider=SQLOLEDB;" _ "Data Source=MC27;" _ "Initial Catalog= test;" _ "User Id=sa;" _ "Password=MandC_mc27;" End If ＝＝＝＝＝＝＝＝＝＝＝＝＝＝SQL実行 Dim rs As ADODB.Recordset SQLにアクセスするオブジェクト宣言 Set rs = New ADODB.Recordset インスタンス生成 rs.ActiveConnection = db dbの接続をrsのActivConnectionにセット テストデータ取得SQL文をrsにセット 全件取得 rs.Source = "SELECT " _ " * " _ "FROM " _ " hoken order by cDate desc ;" rs.Open SQL実行 If rs.EOF = True Then データがない場合：理論的には存在しない Call MsgBox("該当データが存在しません") Exit Sub Else データが存在する場合 allData = rs.GetRows GetRowsメソッドでデータを戻り値に格納) writeData (allData) ダウンロードしたデータをシートに転記 End If ＝＝＝＝＝＝＝＝＝＝＝＝＝＝SQLの後処理 rs.Close レコードセットクローズ Set rs = Nothing rsを破棄 If Not db Is Nothing Then オブジェクトが存在する場合 コネクション状態がオープンの場合 If db.State = adStateOpen Then db.Close DBクローズ End If Set db = Nothing オブジェクト破棄 End If Exit Sub エラーの場合 ErrorHandler Call MsgBox("エラー" Err.Number Chr(13) Err.Description, vbCritical) End Sub Sub writeData(allData As Variant) written by Kasahara 2011/11/17 ダウンロードした履歴データをワークシートに転記する update by Kasahara 2011/11/17 update 対応 Dim RowSize, columnSize, i, j As Long Dim temp() As Variant 縦と横を入れ替えるために使う columnSize = UBound(allData, 1) RowSize = UBound(allData, 2) ReDim temp(RowSize, columnSize) 縦と横を入れ替えるための設定 For i = 0 To UBound(allData, 1) For j = 0 To UBound(allData, 2) temp(j, i) = allData(i, j) Next j Next i cellに転記 支給計算シート （直近５件のみ Sheets("支給計算").Select ActiveSheet.Unprotect どちらのモードで呼ばれたかを読み込む Dim flg As String flg = Cells(1, 1).Value For i = 1 To UBound(temp) + 1 If i 5 Then Exit For End If Cells(i + 21, 4).Value = temp(i - 1, 12) 保存日時 Cells(i + 21, 5).Value = temp(i - 1, 0) 保存名 Cells(i + 21, 6).Value = temp(i - 1, 2) 年齢 Cells(i + 21, 7).Value = temp(i - 1, 3) 時間 Cells(i + 21, 8).Value = temp(i - 1, 6) 交通費 Cells(i + 21, 9).Value = temp(i - 1, 5) 月給 Cells(i + 21, 10).Value = temp(i - 1, 4) 時給 Cells(i + 21, 11).Value = temp(i - 1, 7) 報酬月額 Cells(i + 21, 12).Value = temp(i - 1, 8) 健康保険 Cells(i + 21, 13).Value = temp(i - 1, 9) 厚生年金 Cells(i + 21, 14).Value = temp(i - 1, 10) 介護保険料 Cells(i + 21, 15).Value = temp(i - 1, 11) 雇用保険 横計算のセル Cells(i + 21, 16).Value = Cells(i + 21, 12) + Cells(i + 21, 13) + Cells(i + 21, 14) + Cells(i + 21, 15) Cells(i + 21, 17).Value = Cells(i + 21, 16).Value + Cells(i + 21, 11).Value 経費合計（交通費有）＝保険合計＋月額報酬 Cells(i + 21, 18).Value = Cells(i + 21, 16).Value + Cells(i + 21, 9).Value 経費合計（交通費無）＝保険合計＋月給 Cells(i + 21, 19).Value = Cells(i + 21, 9).Value - Cells(i + 21, 17).Value 差額交通費有 Cells(i + 21, 20).Value = Cells(i + 21, 11).Value - Cells(i + 21, 17).Value 差額交通費無 Next i ActiveSheet.Protect Sheets("算出履歴").Select ActiveSheet.Unprotect For i = 1 To UBound(temp) + 1 Cells(i + 5, 4).Value = temp(i - 1, 12) 保存日時 Cells(i + 5, 5).Value = temp(i - 1, 0) 保存名 Cells(i + 5, 6).Value = temp(i - 1, 2) 年齢 Cells(i + 5, 7).Value = temp(i - 1, 3) 時間 Cells(i + 5, 8).Value = temp(i - 1, 6) 交通費 Cells(i + 5, 9).Value = temp(i - 1, 5) 月給 Cells(i + 5, 10).Value = temp(i - 1, 4) 時給 Cells(i + 5, 11).Value = temp(i - 1, 7) 報酬月額 Cells(i + 5, 12).Value = temp(i - 1, 8) 健康保険 Cells(i + 5, 13).Value = temp(i - 1, 9) 厚生年金 Cells(i + 5, 14).Value = temp(i - 1, 10) 介護保険料 Cells(i + 5, 15).Value = temp(i - 1, 11) 雇用保険 横計算のセル Cells(i + 5, 16).Value = Cells(i + 5, 12) + Cells(i + 5, 13) + Cells(i + 5, 14) + Cells(i + 5, 15) Cells(i + 5, 17).Value = Cells(i + 5, 16).Value + Cells(i + 5, 11).Value 経費合計（交通費有）＝保険合計＋月額報酬 Cells(i + 5, 18).Value = Cells(i + 5, 16).Value + Cells(i + 5, 9).Value 経費合計（交通費無）＝保険合計＋月給 Cells(i + 5, 19).Value = Cells(i + 5, 9).Value - Cells(i + 5, 17).Value 差額交通費有 Cells(i + 5, 20).Value = Cells(i + 5, 11).Value - Cells(i + 5, 17).Value 差額交通費無 Next i ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ update の場合は件数が変わらないので以下の処理は行わない If flg = "save" Then 履歴の最終行に番号を追加 Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = (Cells(Rows.Count, 3).End(xlUp).Value + 1) Dim lastRange As Range Set lastRange = Range(Cells(Rows.Count, 3).End(xlUp), Cells(Rows.Count, 20).End(xlUp)) lastRange.Offset(-1, 0).Borders(xlEdgeBottom).LineStyle = False lastRange.Offset(-1, 0).Copy lastRange.PasteSpecial Paste =xlPasteFormats lastRange.Offset(-1, 0).Borders(xlEdgeBottom).LineStyle = False ５行ごとに水平の罫線を上部へ追加 If Cells(Rows.Count, 3).End(xlUp).Value Mod 5 = 1 Then lastRange.Borders(xlEdgeTop).LineStyle = True lastRange.Borders(xlEdgeTop).ColorIndex = 2 End If 最下部の罫線を追加 lastRange.Borders(xlEdgeBottom).LineStyle = True lastRange.Borders(xlEdgeBottom).ColorIndex = 2 lastRange.Borders(xlEdgeLeft).LineStyle = True lastRange.Borders(xlEdgeRight).LineStyle = True End If ActiveSheet.Protect 算出履歴 End Sub Sub 以上_Click() End Sub Sub 以下_Click() End Sub
https://w.atwiki.jp/animetal_motoneta/pages/19.html
Animetal Marathon V No. トラック名 原曲名 アーティスト名 備考 01 殺戮の十字架 02 ペガサス幻想 03 闘士ゴーディアン Fire of Rock RacerX イントロ・アウトロ 04 超人戦隊バラタック 05 トライアタック！メカンダーロボ 06 スタージンガーの歌 07 ローラーヒーロー・ムテキング 08 ミッドナイト・サブマリン Living After Midnight Judas Priest イントロ・アウトロ 09 夢の舟乗り 10 キン肉マン Go Fight！ 11 炎のキン肉マン 12 Tough Boy 13 よろしくチューニング 14 燃えてヒーロー 15 タッチ Battery Metallica イントロ・アウトロ 16 ザ・チャンバラ 17 ルパン三世のテーマ 18 バトルフィーバーJ 19 ああ電子戦隊デンジマン 20 太陽戦隊サンバルカン Stargazer Rainbow イントロ・アウトロ 21 大戦隊ゴーグルV 22 超電子バイオマン 23 超獣戦隊ライブマン Breaking The Law Judas Priest イントロ・アウトロ 24 レッドバロン THE END Beatles イントロ 25 マッハバロン Rock And Roll Led Zeppelin イントロ 26 男の操～青春一期一会～ 27 ガンバロン 77 Achilles Last Stand Led Zeppelin イントロ 28 行くぞ！BD7 29 闘え！ドラゴン It s so easy Guns N Roses イントロ 30 駆けろバンキッド War Pigs Black Sabbath イントロ Daddy, Brother, Lover, Little Boy Mr.Big アウトロ 31 流星人間ゾーン 32 仮面ライダー スーパー1 Fair Weather Faith Extreme イントロ・アウトロ 33 仮面ライダーBLACK I ll See the Light, Tonight Yngwie Malmsteen イントロ 34 仮面ライダーBLACK RX Dr. Feelgood Mötley Crüe イントロ 35 逆転イッパツマン 36 ヤットデタマンの歌 37 オタスケマンの歌 38 ゼンダマンの歌 39 ヤッターマンの歌 40 残酷な天使のテーゼ 41 Tomorrow Never Die
https://w.atwiki.jp/qqcraft/pages/72.html
App Pass Q for AppPass限定のステージ。全20問。 問題の一部
https://w.atwiki.jp/guitarhero/pages/54.html
XBOX360 実績解除スレまとめ @wiki - Guitar Hero Metallica http //www12.atwiki.jp/xbox360score/pages/720.html There are 50 achievements worth 1000 points Single Player Achievements 14 Multiplayer Achievements 11 Secret Achievements 25 実績 The More I See Complete the Tutorialsチュートリアルを完了する 5 Metallica Complete any instrument career on Expert (Guitar, Bass, Vocals, Drums or Band)いずれかの楽器もしくはバンドでキャリアのエキスパートを完了する 75 James Hetfield Complete the career as the vocalistボーカルキャリアを完了する 25 Lars Ulrich Complete the career as the drummerドラムキャリアを完了する 25 Kirk Hammett Complete the career as the guitaristギターキャリアを完了する 25 Robert Trujillo Complete the career as the bassistベースキャリアを完了する 25 Holier Than Thou Complete all instrument careers全ての楽器でキャリアを完了する 150 One Complete a song with any instrument on Hard or Expert in local Quickplay or Careerいずれかの楽器でハードかエキスパートで一曲クリア（ローカルのクイックプレイかキャリア） 10 ...And Justice for All Earn 100 stars in Band Career or any single instrument Careerバンドかいずれかの楽器でスターを100個稼ぐ 50 The Ecstacy of Gold Earn $15,00015,000稼ぐ 50 Ride the Lightning You triggered star power simultaneously (4 player band)同時にスターパワーを使う（4人バンド） 10 2 X 4 Earn a band Hot Streak (4 player band)Band Hot Streakを稼ぐ（4人バンド） 10 Metal Militia 100% a song (4 player band)100%ソング（4人バンド） 30 The Struggle Within Complete a song in a band in Quickplay or Career (4 players)クイックプレイかキャリアにてバンドで一曲やる（4人） 10 The Four Horsemen Complete a song with all band members on expert in Quickplay or Career (4 player band)全員エキスパートでクイックプレイかキャリアにて一曲やる（4人バンド） 20 Nothing Else Matters Complete the career in a band (2-4 player band)バンドのキャリアを完了する（2-4人バンド） 50 Better Than You Win an online Pro Face-Off matchオンのPro Face-Offマッチで勝つ 10 Blitzkrieg Win an online Band v Band match (8 players)オンのBand v Bandマッチ（8人）で勝つ 10 Seek Destroy Play 20 online matchesオンで20回プレイ 25 The Unforgiven Win an online Face-Off matchオンのFace-Offマッチで勝つ 10 Reload Download a song from GHTunesGHTunesから一曲ダウンロードする 5 Hero of the Day Complete a song on Expert + in Quickplay or Career (drums only)クイックプレイかキャリアにてエキスパート+で一曲やる（ドラムのみ） 30 Wherever I May Roam Complete a song in every venue全ての場所で一曲やる 15 The Memory Remains View a Metallifacts videoMetallifacts videoを見る 5 Black Win an online battle match with the Fade to Black power upオンのBattleでアイテムFade to Blackを使って勝利する 10 秘密の実績 Some Kind of Monster You performed as the guitaristギターで一曲プレイ 5 Invisible Kid You performed as the bassistベースで一曲プレイ 5 Damage Inc. You performed as the drummerドラムで一曲プレイ 5 Motorbreath You performed as the vocalistボーカルで一曲プレイ 5 Disposable Heroes You created a new custom rocker新しくカスタムロッカーを作る 5 Lemmy You rocked out as LemmyLemmyで一曲クリア 5 King Diamond You rocked out as King DiamondKing Diamondで一曲クリア 5 Cure You recovered from a poor performance in Quickplay or Career曲中にロックメーターが赤の状態から回復する 5 Trapped Under Ice You completed a song at the Ice Cave venuethe Ice Cave venueで一曲プレイ 5 Stone Dead Forever You completed a song at The Stone venueThe Stone venueで一曲プレイ 5 The House Jack Built You completed a song in every In-the-Round venue全てのIn-the-Round venueで一曲プレイ 10 Astronomy You hit every star power phrase in the song OrionOrionでスターパワーフレーズを全て弾く(難易度不問) 10 Master of Puppets You scored the highest individual score on a song in a band4人バンドで個人最高点を獲得(キャリアかクイックプレイ) 10 Enter Sandman You scored 330,000 on the song Enter Sandman on guitarEnter Sandmanのギターで330,000以上を獲得 30 Dyer s Eve You scored 450,000 on the song Dyer s Eve as the drummerDyer s Eveのドラムで450,000以上を獲得 30 Fight Fire with Fire You scored 340,000 on the song Fight Fire with Fire as the bassistFight Fire with Fireのベースで340,000以上を獲得 30 Stone Cold Crazy You scored 65,000 on Stone Cold Crazy as the vocalistStone Cold Crazyのボーカルで65,000以上を獲得 30 Creeping Death You scored 575,000 on the song Creeping Death as the guitaristCreeping Deathのギターで575,000以上を獲得 30 Battery You scored 1,000,000 on the song Battery as a bandBatteryの4人バンドで1,000,000以上を獲得 30 The Unforgiven II You won an online Face-Off match by 25,000 points or moreオンのFace-Offマッチで25,000以上の差をつけて勝利する 10 Green Hell Drummed every green note and finished the song Blood and Thunder with the rock meter in greenBlood and Thunderのドラムで全ての緑のノーツを叩き、ロックメーターが緑の状態でクリア(難易度不問) 15 The Unforgiven III You won an online Pro Face-Off match by 25,000 points or moreオンのPro Face-Offマッチで25,000以上の差をつけて勝利する 10 MetallicaEasy,Midium等で進めていた場合でもキャリア最後の曲"The Thing That Should Not Be"のみExpertでクリアして解除可能。 Better Than You,The Unforgiven,The Unforgiven II,TheUnforgiven III,Blitzkrieg演奏中に相手が落ちて終了しても解除される。 The Four Horsemenボーカルパートは慣れていないとクリアすら難しいのでクリア狙いなら"For Whom the Bell Tolls"がお勧め。 The Memory RemainsMetallifacts videoは任意の曲をクリアした後に曲選択画面でXボタンを押すと見れる曲の解説ビデオみたいなもの。曲の最後まで鑑賞すれば解除。 BlackFade to Blackとは曲そのものではなくBattle mode での攻撃アイテムのこと。Fade to Blackというアイテムを発動後、相手が死亡すれば解除。 Lemmy／King DiamondLemmyはAce of Spadesをクリアすると、King DiamondはEvilをクリアすると購入可能になる。 Enter Sandman解除可能なのはExpertのみ。 Dyer s EveMedium,Hardでも解除可能。黄色ノーツの刻みが維持できるなら実績のボーダーライン越えは容易。 Creeping Death解除可能なのはExpertのみ。「スコア理論値の約95%以上を出せ」というハードルの高い実績で、5,6ミス以下に抑えないと解除は難しい。ソロA～F以外がノーミスであったとしてもソロがボロボロだと点が届かない。 Fight Fire with Fire解除可能なのはExpertのみ。ギターソロが終わった時点でスコアが260,000点を超えていれば希望はある。とにかく力まないこと。最初のスターパワーフレーズでアーミングを行うと６個まで溜められるので忘れずに。
https://w.atwiki.jp/ohden/pages/1098.html
Mermaid githubでumlを使うために出てきた。 PlantUML競合。 個人的には、Markdownの中に書かん方が良かったな... https //mermaid-js.github.io/mermaid/#/ install for VSCode VSCodeを開いて、拡張機能のマーケットプレイスから Markdown Preview Mermaid Support を入れるだけ。 install後有効にしたら、新規md fileを作成。 下のようなcodeを記載し、中にmermaidのDSLで記載する。 ```mermaid``` 記載後、markdown preview(Ctrl+K、V)すると作成した図が見れる。 Ctrl+Shift+P から『Markdown プレビューを横に表示』でもok。 ただし、現状、mindmapとか一部機能には対応してないっぽい。 →確認中。 tips 更新日： 2022年12月13日 (火) 15時47分26秒 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/heavymetaleye101/pages/108.html
NAPALM DEATH - PUNISHMENT IN CAPITALS 史上最強のエクストリームへヴィミュージックバンドのライヴ盤。 2002年4月ロンドン大学でのライヴを収録。 「ENEMY OF THE MUSIC BUSINESS」リリース後である。 凄まじくエクストリームなグラインドサウンドはライヴではますます拍車がかかっている。 ちなみに発売されているDVD盤と内容は一緒。 Lucid Fairytale Take The Poison Next On The List Constitutional Hell Suffer The Children Cleanse Impure Complaint Politicians Breed To Breath Vermin World Keeps Turning Can t Play Won t Pay Unchallenged Hate Neglect Narcoleptic Hung From Enslavement To Oblitteration Scum Life THE Kill Deciever You Suffer Cure For A Common Mass Appeal Madness Greed Killing Instincts Of Survival Nazi Punks Fuck Off Back From The Dead Siege Of Power
https://w.atwiki.jp/djmax2/pages/59.html
◆MISSION 28 [Mental Storm] Lv.18 COMBO 5B 28.png ◆ クリア条件 3700コンボを乗り越えよ！ ◆ 楽曲 Yellowberry AJ Mix (NM) Seeker (NM) SQUEEZE (NM) ◆ クリア賞品 GEAR - ミスティークフォレストギア ◆ 備考 常にFADER BLINK状態、FEVER中は解除される